home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PET / E-Education / (e)d2.d64 / the game.1 (.txt) < prev    next >
Commodore BASIC  |  2008-11-26  |  20KB  |  574 lines
  1. 10 :REM *** R. PRACHUN (1983) ***
  2. 12 :REM *** P.O.BOX 1447      ***
  3. 14 :REM *** PORT PERRY, ONT.  ***
  4. 16 :REM *** L0B 1N0           ***
  5. 18 :
  6. 22 DATA 169 , 1 , 162 , 4 , 160
  7. 24 DATA 255 , 32 , 186 , 255 , 32
  8. 26 DATA 192 , 255 , 162 , 1 , 32
  9. 28 DATA 201 , 255 , 133 , 2 , 32
  10. 30 DATA 231 , 255 , 96 , 0 , 0
  11. 31 :
  12. 32 POKE 808,225:REM DISABLE STOP/RESTORE KEYS
  13. 33 :
  14. 34 YY=28:GOSUB10000:DQ=0
  15. 36 DL$(1)="                                     "
  16. 38 DL$(2)="                                     "
  17. 40 DL$(3)="                                     "
  18. 42 DL$(4)="                                     "
  19. 44 F$="":WS$=""
  20. 46 NA$="                [212]HE [199]AME "
  21. 48 MO$(0)="    ":MO$(1)=""
  22. 50 E$="                                                      "
  23. 52 X1$="":X2$=""
  24. 54 X3$="":X4$=""
  25. 56 X5$=""
  26. 58 D5$=" [215]HAT IS YOUR CHOICE (1-4)? [146]"
  27. 60 Y1$=""
  28. 62 Y2$=""
  29. 64 Y3$=""
  30. 66 Y4$=""
  31. 68 PRINTCHR$(142):PRINT""
  32. 70 GOSUB5220
  33. 72 PRINT"[147]"CHR$(14):GOSUB5000
  34. 74 GOTO122
  35. 76 DIM P1$(3,130):I=0
  36. 78 C1=0:C2=0:W=0:R=0:PR=0
  37. 80 :
  38. 82 FORK=1TO3:I=0:POKE53280,K+10:POKE53281,K+11
  39. 84 I=I+1:READ P1$(K,I):IFP1$(K,I)="***"THEN88
  40. 86 N1(K)=N1(K)+1:GOTO84
  41. 88 NEXT K
  42. 90 :
  43. 92 FORK=1TO3:POKE53280,K+8:POKE53281,K+9
  44. 94 FORJ=1TO8:READQ1$(K,J),Q2$(K,J)
  45. 96 READ D1$(K,J),D2$(K,J),D3$(K,J),D4$(K,J),CO(K,J)
  46. 98 CV=CV+1:IFCV=2THENYY=158:CV=0
  47. 100 IFCV=1THENYY=28
  48. 102 GOSUB5350:NEXTJ:PRINT""
  49. 104 L(K,1)=INT(8*RND(1)+1)
  50. 106 FOR J=2TO5
  51. 108 L(K,J)=INT(8*RND(1)+1)
  52. 110 FORL=1TOJ-1
  53. 112 IFL(K,J)=L(K,L)THENL=J-1:GOTO108
  54. 114 NEXTL,J
  55. 116 NEXTK
  56. 118 RETURN
  57. 120 :
  58. 122 GOSUB194:F=1:GOSUB5670
  59. 124 GOSUB 248
  60. 126 IFVQ=2THENVQ=0:GOTO122
  61. 128 :
  62. 130 F=2
  63. 132 PRINT"[147]";NA$:PRINT"                 [208]ART 2":PRINT""
  64. 134 GOSUB 356:GOSUB194
  65. 136 GOSUB5670
  66. 138 GOSUB248
  67. 140 IFVQ=2THENVQ=0:GOTO130
  68. 142 F=3:PRINT"[147]";NA$:PRINT"                 [208]ART 3":PRINT""
  69. 144 GOSUB356:GOSUB194:GOSUB5670
  70. 146 GOSUB248
  71. 148 IFVQ=2THENVQ=0:GOTO142
  72. 150 PRINT"[147]        [211]UMMARY [210]EPORT ":TQ=R+W
  73. 152 PRINT"       [211]TUDENT: ";SN$
  74. 154 ZZ=W+R:PR=INT((R/ZZ)*100)
  75. 156 PRINT"       [212]OTAL [206]UMBER OF [209]UESTIONS:";TQ
  76. 158 PRINT"       [193]NSWERS CORRECT (1ST TRY):";C1
  77. 160 PRINT"       [193]NSWERS CORRECT (2ND TRY):";C2
  78. 162 PRINT"       [212]OTAL [201]NCORRECT [209]UESTIONS:";W
  79. 164 PRINT"       [212]OTAL [209]UESTIONS [195]ORRECT  :";R
  80. 166 PRINT"       =============================="
  81. 168 PRINT"       [208]ERCENTAGE [195]ORRECT       :";PR;" %"
  82. 170 GOSUB6570:IFDQ=2THENDQ=0:GOTO170
  83. 172 PRINT"[147]     [196]O YOU WISH TO SEE THE STORY"
  84. 174 PRINT"       IN PARAGRAPH FORM (Y/N)?"
  85. 176 GETZ$:IFZ$=""THEN176
  86. 178 IFZ$="Y"THEN182
  87. 180 GOSUB6410:GOTO 8000
  88. 182 FORK=1TO3
  89. 184 PRINT"[147]";NA$;"":FORI=1TON1(K)
  90. 186 PRINT MO$(NX);P1$(K,I)" ";
  91. 188 NX=NX+1:IFNX=2THENPRINT:NX=0
  92. 190 IFP1$(K,I)=" "THENGOSUB6200
  93. 192 NEXTI:NX=0:NEXTK:GOSUB6410:GOTO6240
  94. 194 IFQH=1THENRETURN
  95. 196 PRINT"[147]";NA$
  96. 198 PRINT"[144]        [195]HOOSE THE STORY SPEED."
  97. 200 PRINT"               1.[146] [198]AST"
  98. 202 PRINT"               2.[146] [205]EDIUM"
  99. 204 PRINT"               3.[146] [211]LOW"
  100. 206 PRINT"[144]        [217]OUR CHOICE (1,2,3)?"
  101. 208 GETZ$:IFZ$=""THEN208
  102. 210 GOSUB5560:CH=VAL(Z$):IFCH<1ORCH>3THEN194
  103. 212 IFCH=1THENS=20
  104. 214 IFCH=2THENS=50
  105. 216 IFCH=3THENS=75
  106. 218 GOSUB 220:GOSUB236:RETURN
  107. 220 PRINT"[147]    [212]O CHANGE THE STORY SPEED, PRESS"
  108. 222 PRINT"      AND [200][207][204][196] THE FOLLOWING KEYS;"
  109. 224 PRINT"         [212]HE [144] [198]1 [146] KEY = [198][193][211][212][197][210]"
  110. 226 PRINT"         [212]HE [144] [198]7 [146] KEY = [211][204][207][215][197][210]"
  111. 228 PRINT"     [208]RESS THE [210][197][212][213][210][206] KEY TO START."
  112. 230 GETZ1$:IFZ1$=""THEN230
  113. 232 IFZ1$<>CHR$(13)THEN230
  114. 234 GOSUB5560:RETURN
  115. 236 PRINT"[147]":X=1305:Y=1465:XC=55576:YC=55736
  116. 238 PRINT""
  117. 240 PRINT"       [198]1 [146] = [198]ASTER   [198]7 [146] = [211]LOWER"
  118. 242 FORDY=1TO500:NEXTDY
  119. 244 FOR J=1TO 39
  120. 246 POKEX,42:POKEXC,7:POKEYC,7:XC=XC+1:YC=YC+1:POKEY,42:X=X+1:Y=Y+1:NEXTJ:RETURN
  121. 248 POKE53280,6:POKE53281,12:PRINT"[147]";NA$:PRINT:POKE198,0
  122. 250 PRINT"   ";SN$;", WOULD YOU LIKE TO"
  123. 252 PRINT"   READ THIS PART OF THE STORY AGAIN  "
  124. 254 PRINT"   BEFORE ANSWERING THE QUESTIONS  "
  125. 256 PRINT"   THAT FOLLOW (Y/N)?"
  126. 258 GETZ$:IFZ$=""THEN258
  127. 260 GOSUB5560
  128. 262 IFZ$="Y"ANDF=1THEN122
  129. 264 IFZ$="Y"ANDF=2THEN124
  130. 266 IFZ$="Y"ANDF=3THEN142
  131. 268 IFZ$<>"N"THEN248
  132. 270 PRINT"[147]"NA$
  133. 272 PRINT"  [208]LEASE ANSWER THE FOLLOWING QUESTIONS"
  134. 274 PRINT"  BY TYPING IN THE NUMBER THAT MATCHES"
  135. 276 PRINT"  THE CORRECT ANSWER."
  136. 278 GOSUB 356:TM=0
  137. 280 FOR J=1TO5
  138. 282 PRINT"[147]             [209][213][197][211][212][201][207][206] #[146] ";J
  139. 284 PRINT"[158] **************************************"
  140. 286 PRINT" ";Q1$(F,L(F,J)):PRINT" ";Q2$(F,L(F,J))
  141. 288 PRINT"[158] **************************************"
  142. 290 GOSUB382
  143. 292 GETZ$:IFZ$=""THEN292
  144. 294 QC=VAL(Z$):IFQC<1ORQC>4THEN292
  145. 296 GOSUB370
  146. 298 FORV=1TO4
  147. 300 IFV=QCTHEN304
  148. 302 PRINTDL$(V)
  149. 304 NEXTV
  150. 306 IFQC=CO(F,L(F,J))THEN348
  151. 308 PRINTY1$;"       [211]ORRY, THAT IS INCORRECT."
  152. 310 PRINTY2$;"               [212]RY AGAIN!"
  153. 312 GOSUB382
  154. 314 GETZ1$:IFZ1$=""THEN314
  155. 316 QS=VAL(Z1$):IFQS<1ORQS>4THEN314
  156. 318 IFQS=CO(F,L(F,J))THEN336
  157. 320 FORV=1TO4
  158. 322 IFV=CO(F,L(F,J))THEN326
  159. 324 PRINTDL$(V)
  160. 326 NEXTV
  161. 328 PRINTY3$;"       [206]O, THE ANSWER IS NUMBER ";CO(F,L(F,J)):W=W+1
  162. 330 TM=TM+1:IFTM=3THENJ=5:GOSUB6300:W=W-1:RETURN
  163. 332 :
  164. 334 GOSUB 356:GOTO354
  165. 336 FORV=1TO4
  166. 338 IFV=QSTHEN342
  167. 340 PRINTDL$(V)
  168. 342 NEXTV:GOSUB370
  169. 344 PRINTY3$;"       [206]OW YOU HAVE IT! [199]OOD WORK!":C2=C2+1
  170. 346 GOSUB364:R=R+1:GOSUB356:GOTO354
  171. 348 GOSUB402:PRINTY2$;CG$:R=R+1:C1=C1+1
  172. 350 GOSUB364
  173. 352 GOSUB356
  174. 354 NEXTJ:RETURN
  175. 356 PRINT:PRINT"   [208]RESS THE [146] [210][197][212][213][210][206] KEY  TO CONTINUE "
  176. 358 GETQ$:IFQ$=""THEN358
  177. 360 IFQ$<>CHR$(13)THEN358
  178. 362 GOSUB5560:RETURN
  179. 364 FORSX=1TO10:POKE53280,SX:POKE53281,SX+1:FORDY=1TO25:NEXTDY:NEXTSX
  180. 366 POKE53280,6:POKE53281,12
  181. 368 RETURN
  182. 370 PRINTY1$"                                       "
  183. 372 PRINTY2$"                                       "
  184. 374 PRINTY3$"                                       "
  185. 376 PRINTY4$"                                       "
  186. 378 PRINTX5$"                                       "
  187. 380 RETURN
  188. 382 REM
  189. 384 PRINTX1$;" 1.[146] ";D1$(F,L(F,J))
  190. 386 PRINTX2$;" 2.[146] ";D2$(F,L(F,J))
  191. 388 PRINTX3$;" 3.[146] ";D3$(F,L(F,J))
  192. 390 PRINTX4$;" 4.[146] ";D4$(F,L(F,J))
  193. 392 PRINTX5$;"     ";D5$
  194. 394 RETURN
  195. 396 :
  196. 398 REM **** DATA FOR STORY ****
  197. 400 :
  198. 402 WS=INT(RND(1)*5+1)
  199. 404 ONWSGOSUB408,410,412,414,416
  200. 406 RETURN
  201. 408 CG$="           [195][160][207][160][210][160][210][160][197][160][195][160][212] ! ":RETURN
  202. 410 CG$="         [198][160][193][160][206][160][212][160][193][160][211][160][212][160][201][160][195] ! ":RETURN
  203. 412 CG$="         [211][160][213][160][208][160][197][160][210]   [215][160][207][160][210][160][203]! ":RETURN
  204. 414 CG$="         [201][160][206][160][195][160][210] [197][160][196][160][201] [194][160][204][160][197] ! ":RETURN
  205. 416 CG$="         [211] [212][160][213][160][208][160][197][160][206][160][196][160][207][160][213] [211] ! ":RETURN
  206. 2000 DATA"  [211]OMEONE GREAT","ONCE SAID,","IT'S NOT","WHETHER YOU","WIN OR LOSE,"
  207. 2005 DATA"IT'S HOW","YOU PLAY","THE GAME."
  208. 2010 DATA"[207]BVIOUSLY,","THAT SOMEONE,","NEVER LOST","A GAME!"," "
  209. 2015 DATA"  [194]ASEBALL,","WASN'T EVEN","MY FAVOURITE GAME."
  210. 2020 DATA"[211]O WHY THEN,","DID [201] CARE","ABOUT IT","SO MUCH?"," "
  211. 2025 DATA"  [205]Y BROTHER","SAID [201] CARED","BECAUSE [201] WAS","THE ONLY"
  212. 2030 DATA"GIRL PITCHER","IN THE WHOLE","REGIONAL LEAGUE.","[200]E SAID,"
  213. 2035 DATA"[201] FELT THREATENED","BY THE BOYS","ON THE TEAM","AND THAT"
  214. 2040 DATA"WAS WHY","[201] TRIED","SO HARD.","[194]UT THEN,","WHAT","DO BROTHERS"
  215. 2045 DATA"KNOW?"," ","  [212]HE PROBLEM","STARTED WITH","THE GAME AGAINST"
  216. 2050 DATA"THE [210]ED [198]LAMES,","SOME NORTH-END","BOY'S TEAM","THAT NO ONE"
  217. 2055 DATA"HAD EVER","HEARD OF.","[212]HEY DIDN'T","EVEN HAVE","DECENT UNIFORMS."
  218. 2060 DATA"[201] MEAN,","WHO","WOULD WEAR","GREEN","AND PURPLE?"
  219. 2065 DATA"[212]HEIR UNIFORMS","HOWEVER,","WERE NOT","THE PROBLEM.","[212]HEIR PITCHER"
  220. 2070 DATA"WAS THE PROBLEM."," ","  [212]HEY CALLED HIM"," [194]EAKER [146]."
  221. 2072 DATA"[217]OU GUESSED IT!"
  222. 2075 DATA"[200]E HAD","A NOSE","LIKE A VULTURE.","[194]UT HIS NOSE","WAS NOTHING."
  223. 2080 DATA"[201]T WAS","HIS MOUTH","THAT WAS","TOO BIG!"," ","***"
  224. 2085 DATA"  [201]T STARTED","IN THE THIRD","INNING.","[197]VERYTIME","[194]EAKER,"
  225. 2090 DATA"WOUND UP","TO PITCH,","HE WOULD STOP","AND PRETEND","TO FLIP BACK"
  226. 2095 DATA"SOME IMAGINARY","PIGTAILS","OVER","HIS SHOULDERS.","[201]T WAS","A HABIT"
  227. 2100 DATA"[201] HAD,","THAT [201]","DIDN'T","EVEN NOTICE,","UNTIL THEN."," "
  228. 2105 DATA"  [194]EAKER'S TEAM","CAUGHT ON","TO THE JOKE","RIGHT AWAY."
  229. 2110 DATA"[194]Y THE FOURTH","INNING,","THE WHOLE TEAM","WAS DOING IT."
  230. 2115 DATA"[201]T WAS","JUST ABOUT THEN,","THAT [194]EAKER","STARTED FLAPPING"
  231. 2120 DATA"THAT ENORMOUS","JAW OF HIS."," ","  [201] WAS ON"
  232. 2125 DATA"MY WIND-UP,","WHEN [194]EAKER","LET FLY","HIS FIRST COMMENT."
  233. 2130 DATA"[212]HE WHOLE PARK","MUST HAVE","HEARD IT!","'[212]HE PITCHER","NEEDS"
  234. 2135 DATA"A DRESS'."," ","  [212]HE EMBARRASSING","PART WAS,","THAT MY PITCH"
  235. 2140 DATA"HIT THE GROUND","TWO FEET SHORT","OF HOME PLATE!","[210]ALPH,"
  236. 2145 DATA"OUR BACKCATCHER","JUST STOOD","STARING AT ME","LIKE AN IDIOT."
  237. 2150 DATA"[212]HAT WAS","THE BEGINNING","OF THE END.","[198]ROM THERE ON,","IT WAS"
  238. 2155 DATA"ALL DOWNHILL!"," ","***"
  239. 2160 DATA"  [201]F [201] WERE","SUPERSTITIOUS,","[201]'D HAVE SAID","[194]EAKER","HAD PLANNED"
  240. 2165 DATA"THE ENTIRE","GRISLY AFFAIR."," ","  [215]E WERE","DOWN TO","A TWO POINT"
  241. 2170 DATA"LEAD","IN THE LAST","INNING","WITH","YOUR'S TRULY","ON THE MOUND."
  242. 2175 DATA"[201]'D MUFFED","TWO BATTERS","OVER TO","FIRST AND SECOND","AND [201] HAD"
  243. 2180 DATA"ONE STRIKE","AND THREE BALLS","AGAINST","THE GUY","ON THE PLATE."
  244. 2185 DATA"  [210]ALPH","WAS CALLING","FOR MY","CURVE BALL,","WHILE [194]EAKER"
  245. 2190 DATA"WAS TURNING","BEET RED","FROM THE STRAIN","OF YELLING","INSULTS."
  246. 2195 DATA" ","  [212]HE BATTER","WALKED","TO FIRST,","AFTER MY","CURVE BALL"
  247. 2200 DATA"NEARLY","DECAPITATED","THE POOR GUY.","[194]ASES LOADED","AND [194]EAKER"
  248. 2205 DATA"HOWLING","WITH DELIGHT!"," ","[205]Y BRACES","NEARLY","DROPPED OUT,"
  249. 2210 DATA"WHEN [201] REALIZED","THAT [194]EAKER","WAS UP","NEXT."," ","  [212]HE DECISION"
  250. 2215 DATA"DROVE ME","ALMOST MAD.","[201] COULD","EITHER","TRY TO","SWING HIM OUT,"
  251. 2220 DATA"OR","[201] COULD","TRY TO","KNOCK HIM OUT."," "
  252. 2225 DATA"  [194]Y THE TIME","[194]EAKER HAD","TWO STRIKES","AND THREE BALLS","CALLED"
  253. 2230 DATA"ON HIM,","[201] WAS","A MESS.","[201] COULD","SENSE","EVERYONE'S EYES"
  254. 2235 DATA"STARING;","WONDERING;","AND WAITING!","[194]EAKER'S FOREHEAD"
  255. 2240 DATA"GLISTENED","WITH BEADS","OF SWEAT.","[212]HE BALL","WAS GETTING"
  256. 2245 DATA"SLIPPERY!"," ","[193]S [201] WOUND-UP,","THE PLACE","WENT SILENT."
  257. 2250 DATA"[194]EAKER'S EYES","BULGED.","[205]Y KNUCKLE BALL","BLISTERED","THE AIR."," "
  258. 2255 DATA"  [194]EAKER'S NECK","NEARLY SNAPPED","WITH THE STRAIN,","BUT THAT"
  259. 2260 DATA"FAMILIAR SMACK","OF A BALL","BURNING INTO","A CATCHER'S MITT,"
  260. 2265 DATA"BROUGHT A SMILE","TO MY FACE."," "
  261. 2270 DATA"  [207]NE THING'S","FOR SURE,","IT'S NOT","WHETHER","YOU WIN","OR LOSE,"
  262. 2275 DATA"IT'S HOW","YOU PLAY","THE GAME!"," ","***"
  263. 2280 DATA"[215]HICH STATEMENT IS TRUE?"," ","BASEBALL WAS HER BEST SPORT"
  264. 2285 DATA"BASEBALL WAS VERY DIFFICULT","THE AUTHOR HATED BASEBALL"
  265. 2290 DATA"BASEBALL WAS NOT HER BEST SPORT",4
  266. 2295 DATA"[212]HE AUTHOR WAS THE ONLY GIRL","PITCHER IN ...?"
  267. 2300 DATA"THE ENTIRE TEAM","THE WHOLE CITY LEAGUE","THE REGIONAL LEAGUE"
  268. 2305 DATA"THE ENTIRE COUNTY",3
  269. 2310 DATA"[215]HAT EXPLANATION DID THE AUTHOR'S","BROTHER GIVE ABOUT HER CARING?"
  270. 2315 DATA"HER PROBLEM WAS EMOTIONAL","SHE FELT THREATENED"
  271. 2320 DATA"HE HAD NO EXPLANATION","HE FELT SHE WAS SICK",2
  272. 2325 DATA"[212]HE OPPOSING TEAM WAS CALLED..."," ","THE [210]ED [198]LAMES","THE [200]OT [198]LAMES"
  273. 2330 DATA"THE [210]ED [212]ORCH","THE [210]ED [198]ALCONS",1
  274. 2335 DATA"[215]HY WHERE THE OPPOSING TEAM'S","UNIFORMS VERY POOR?"
  275. 2340 DATA"THEY WERE VERY OLD","THEY WERE DIRTY","THEY WERE A POOR COLOR CHOICE"
  276. 2345 DATA"THEY WERE A BAD DESIGN",3
  277. 2350 DATA"[200]OW DID [194]EAKER GET HIS NAME?"," ","HE HAD EAGLE EYES"
  278. 2355 DATA"HE HAD A BIG MOUTH","FROM THE SHAPE OF HIS HEAD","HE HAD A BIG NOSE",4
  279. 2360 DATA"[215]HERE DID THE OPPOSING BOY'S","TEAM COME FROM?"
  280. 2365 DATA"THE [206]ORTH END","THE [211]OUTH END","THE LOWER HALF OF TOWN"
  281. 2370 DATA"THE [215]EST DISTRICT",1
  282. 2375 DATA"[215]HAT DOES,'ITS NOT WHETHER YOU","WIN OR LOSE', MEAN?"
  283. 2380 DATA"LOSING IS HEALTHY","WE CAN'T WIN ALL THE TIME"
  284. 2382 DATA"WINNING IS UNIMPORTANT"
  285. 2385 DATA"WINNING IS ONLY PART OF THE GAME",4
  286. 2390 DATA"[215]HAT DOES,'IT'S HOW YOU PLAY THE","GAME' MEAN?"
  287. 2395 DATA"STYLE OF PLAY IS IMPORTANT","BEING FAIR IS IMPORTANT"
  288. 2400 DATA"WINNING IS UNIMPORTANT","GAME PLANNING IS VERY IMPORTANT",2
  289. 2405 DATA"[215]HAT WAS THE [194]EAKER'S PROBLEM?"," "
  290. 2410 DATA"HE COULDN'T PITCH","HE HAD AN ENORMOUS NOSE","HE TALKED TOO MUCH"
  291. 2415 DATA"HE HATED GIRLS",3
  292. 2420 DATA"[201]N WHICH INNING DID [194]EAKER BEGIN","HIS SHOUTING?"
  293. 2425 DATA"THE THIRD","THE FIFTH","THE FOURTH","THE MIDDLE",3
  294. 2430 DATA"[215]HAT ACTION DID BEAKER PRETEND TO","DO ON EACH OF HIS PITCHES?"
  295. 2435 DATA"HE COMBED HIS HAIR","HE POWDERED HIS NOSE","HE FLIPPED AWAY PIGTAILS"
  296. 2440 DATA"HE STRAIGHTENED A DRESS",3
  297. 2445 DATA"[215]HY HADN'T THE AUTHOR NOTICED HER","HAIR HABIT BEFORE?"
  298. 2450 DATA"SHE WAS TOO BUSY","SHE TOOK IT FOR GRANTED","SHE WAS EMBARRASSED"
  299. 2455 DATA"SHE DIDN'T CARE",2
  300. 2460 DATA"[215]HAT WAS [194]EAKER TRYING TO DO WITH","THE HAIR ROUTINE?"
  301. 2465 DATA"HE TRIED TO GET LAUGHS","HE WAS BEING A CLOWN"
  302. 2470 DATA"HE WAS TRYING TO ANNOY BATTERS","HE WAS POKING FUN AT THE AUTHOR",4
  303. 2475 DATA"[215]HAT WAS ALL OF THE OPPOSING TEAM","DOING BY THE 4TH INNING?"
  304. 2480 DATA"THEY WERE LAUGHING","THEY PRETENDED TO HAVE PIGTAILS"
  305. 2485 DATA"THEY WERE PLAYING BETTER BALL","THEY WERE LOSING THE GAME",2
  306. 2490 DATA"[215]HAT WAS THE AUTHOR DOING WHEN","[194]EAKER MADE HIS FIRST COMMENT?"
  307. 2495 DATA"SHE WAS AT BAT","SHE WAS ON THE BENCH","SHE WAS WINDING UP A PITCH"
  308. 2500 DATA"SHE WAS CATCHING A HIT",3
  309. 2505 DATA"[215]HY DID [194]EAKER'S FIRST COMMENT","EMBARRASS THE AUTHOR?"
  310. 2510 DATA"THE PITCH HIT THE GROUND","SHE WALKED THE BATTER","SHE WAS VERY SHY"
  311. 2515 DATA"SHE WAS VERY PROUD",1
  312. 2520 DATA"[215]HO WAS [210]ALPH?"," ","THE UMPIRE","A GOOD FRIEND","THE BACKCATCHER"
  313. 2525 DATA"A LOYAL FAN",3
  314. 2530 DATA"[215]HY DID [210]ALPH JUST STARE AT THE","POOR PITCH MADE BY THE AUTHOR?"
  315. 2535 DATA"HE WAS ANGRY","HE WAS ILL","HE WAS VERY TIRED","HE WAS SURPRISED",4
  316. 2540 DATA"[215]HY DID THE AUTHOR FEEL THAT THE","WHOLE PARK HAD HEARD THE COMMENT?"
  317. 2545 DATA"IT WAS A SMALL PARK","[194]EAKER YELLED VERY LOUDLY"
  318. 2550 DATA"EVERYONE STARTED LAUGHING","THE PARK WAS VERY QUIET JUST THEN",2
  319. 2555 DATA"[215]HAT DOES THE WORD 'SUPERSTITIOUS'","MEAN?"
  320. 2560 DATA"VERY POWERFUL","ODD","UNBEILIEVABLE","BELIEF IN THE SUPERNATURAL",4
  321. 2565 DATA"[212]HE AUTHOR'S TEAM HAD A..."," ","2 POINT LEAD","WERE 2 POINTS BEHIND"
  322. 2570 DATA"WERE 4 POINTS BEHIND","WERE LOSING",1
  323. 2575 DATA"[215]HY WAS BEAKER HOWLING WITH DELIGHT","WHEN THE BASES GOT LOADED?"
  324. 2580 DATA"HE WAS AFFECTING THE AUTHOR","HE FELT HE WAS WINNING"
  325. 2585 DATA"HE WAS HAVING A GOOD TIME","EVERYONE FOUND HIM FUNNY",1
  326. 2590 DATA"[215]HY HAD [194]EAKER TURNED 'BEET RED'","WITH THE THIRD BATTER UP?"
  327. 2595 DATA"HE WAS LAUGHING SO HARD","HE WAS SCREAMING SO HARD","HE WAS COUGHING"
  328. 2600 DATA"HE WAS EXTREMELY ANGRY",2
  329. 2605 DATA"[215]HY DID THE AUTHOR NEARLY DROP","HER BRACES?"
  330. 2610 DATA"SHE WAS VERY ANGRY","[194]EAKER MADE A RUDE COMMENT","SHE PITCHED SO HARD"
  331. 2615 DATA"[194]EAKER WAS UP TO BAT",4
  332. 2620 DATA"[212]HE AUTHOR'S TWO CHOICES WERE..."," ","PLAY FAIR & LOSE"
  333. 2625 DATA"PLAY UNFAIR & WIN","HIT OR WALK [194]EAKER","HIT [194]EAKER OR SWING HIM OUT"
  334. 2630 DATA4,"[215]HY WAS THE CROWD WONDERING AND","WAITING?"
  335. 2635 DATA"THE AUTHOR COULD GET BACK AT [194]EAKER","THE GAME WAS VERY CLOSE"
  336. 2640 DATA"THE AUDIENCE WAS UPSET","THE GAME WAS VERY SLOW",1
  337. 2645 DATA"[215]HICH EVENT HAPPENED LAST?"," ","THE AUTHOR WAS A MESS"
  338. 2650 DATA"THE PARK WAS SILENT","[194]EAKER'S EYES BULGED"
  339. 2655 DATA""SWEAT GLISTENED ON EAKER'S HEAD",3
  340. 2660 [131]"(null)HAT DOES 'THE BALL WAS GETTING","SLIPPERY' MEAN?"
  341. 2665 [131]"THE AUTHOR WAS TIRED","THE BALL WAS OILY","THE AUTHOR WAS NERVOUS"
  342. 2670 [131]"THE AUTHOR'S GLOVE WAS WET",3
  343. 2675 [131]"(null)HAT DOES THE WORD 'GRISLY'","MEAN?"
  344. 2680 [131]"HORRIBLE","COMPLETE","STRANGE","STUPID",1
  345. 4997 :
  346. 4998 [143] **** END OF STORY DATA ****
  347. 4999 :
  348. 5000 [151]53280,5:[151]53281,12:[141]6870
  349. 5007 [153]"LOAD";NA$
  350. 5010 [153]"       LEFT$ELLO, ";SN$;"."
  351. 5020 [153]"        (null)LEASE READ THE STORY AND"
  352. 5030 [153]"       ANSWER THE QUESTIONS THAT"
  353. 5040 [153]"       FOLLOW."
  354. 5050 [153]"     (null)OU MAY HAVE THE STORY PRINTED"
  355. 5060 [153]"       OUT IN TWO DIFFERENT WAYS."
  356. 5070 [153]"       1) ATN  PARAGRAPH WAIT AT A TIME."
  357. 5080 [153]"       2) ATN  PHRASE WAIT AT A TIME."
  358. 5090 [153]"       RIGHT$N OPTION NUMBER TWO YOU "
  359. 5100 [153]"     WILL BE ABLE TO CONTROL THE "
  360. 5110 [153]"     SPEED OF THE PHRASES AS THEY"
  361. 5120 [153]"     FLASH ON THE SCREEN."
  362. 5130 [153]"  (null)HICH (null)(null)(null)RIGHT$(null)(null) WOULD YOU LIKE (1 OR 2)?"
  363. 5140 [161]X$:[139]X$[178]""[167]5140
  364. 5150 QH[178][197](X$):[139]QH[179]1[176]QH[177]2[167]5140
  365. 5160 [142]
  366. 5170 [161]Z$:[139]Z$[178]""[167]5170
  367. 5180 [139]Z$[179][177][199](13)[167]5170
  368. 5190 [141]5560
  369. 5210 [142]
  370. 5220 [153]"LOAD":[151]53280,6:[151]53281,12
  371. 5230 [141]5340:[137]5240
  372. 5240 AS[178]2006:AD[178][171]39
  373. 5250 [153]WS$;"           ONE MOMENT, PLEASE! "
  374. 5260 [141]76:[142]
  375. 5270 [129]D[178]1[164]100:[130]D:[142]
  376. 5280 [142]
  377. 5290 [142]
  378. 5300 [142]
  379. 5310 :
  380. 5320 [143] *** GRAPHIC OPENING ***
  381. 5330 :
  382. 5340 [151]53281,12:[151]53280,7
  383. 5350 [153]"           R. PRACHUN (1983) "
  384. 5352 :
  385. 5353 [143] *** OPENING GRAPHIC START ***
  386. 5354 :
  387. 5360 [153][199](YY)"               WAIT   WAIT    WAIT       WAIT"
  388. 5362 [153]"             WAIT     WAIT    WAIT   WAIT"
  389. 5364 [153]"             WAIT         WAIT    WAIT"
  390. 5366 [153]"             WAIT     WAIT    WAIT   WAIT"
  391. 5368 [153]"             WAIT     WAIT    WAIT       WAIT"
  392. 5470 [153]
  393. 5480 [153]"            WAIT       WAIT   WAIT    WAIT       WAIT"
  394. 5482 [153]"        WAIT    WAIT   WAIT    WAIT    WAIT   WAIT   WAIT"
  395. 5484 [153]"        WAIT           WAIT   WAIT  WAIT  WAIT    WAIT"
  396. 5486 [153]"        WAIT    WAIT   WAIT    WAIT   WAIT    WAIT    WAIT"
  397. 5488 [153]"        WAIT    WAIT   WAIT    WAIT   WAIT    WAIT   WAIT"
  398. 5490 [153]"            WAIT   WAIT    WAIT   WAIT    WAIT       WAIT"
  399. 5492 [153]""
  400. 5498 [153]"               (null)USRUSRUSRUSRUSRUSRUSR(null)
  401. 5500 PRINT"               [165]       [167]
  402. 5502 [153]"               FNH O M ETHEN
  403. 5504 PRINT"               [165]       [167]
  404. 5506 [153]"               (null)       (null)
  405. 5508 PRINT"                [205]     [206]
  406. 5510 [153]"                 TAB(TAB(TAB(TAB(TAB(
  407. 5520 RETURN
  408. 5555 REM *** END OF OPENING GRAPHIC ***
  409. 5560 SM=54272:FORL=0TO24:POKESM+L,0:NEXT
  410. 5570 POKESM+1,45 :POKESM+5,10
  411. 5580 POKESM+15,30:POKESM+24,6:POKESM+4,21
  412. 5590 FORTT=1TO150:NEXT
  413. 5600 POKESM+4,20:POKESM+24,0
  414. 5610 RETURN
  415. 5640 :
  416. 5650 REM *** PRINTOUT ROUTINE ***
  417. 5660 :
  418. 5670 IFQH=1THEN6050
  419. 5680 POKE53280,0:POKE53281,11
  420. 5690 FORI=1TON1(F)
  421. 5700 SH=PEEK(203):IFSH=4THENS=S-5
  422. 5710 IFSH=3THENS=S+5
  423. 5720 IFS<10THENS=10
  424. 5730 IFS>60THENS=60
  425. 5740 SH=64
  426. 5750 PRINT"              [211][208][197][197][196] [146] =";S
  427. 5760 PRINTE$:PRINTF$;
  428. 5770 PRINT"          ";(P1$(F,I))
  429. 5780 FOR J=1TOS*10:NEXTJ
  430. 5790 NEXT I:RETURN
  431. 5800 :
  432. 6040 :
  433. 6050 PRINT"[147]";NA$;"":FORI=1TON1(F)
  434. 6060 PRINT MO$(NX);P1$(F,I)" ";
  435. 6070 NX=NX+1:IFNX=2THENPRINT:NX=0
  436. 6080 IFP1$(F,I)=" "THENGOSUB6200
  437. 6090 NEXTI:NX=0:RETURN
  438. 6100 STOP:PRINT"[147]";NA$;"":FORI=1TON2
  439. 6110 PRINT P1$(F,I);" ";
  440. 6120 NX=NX+1:IFNX=2THENPRINT:NX=0
  441. 6130 IFP1$(F,I)=" "THENGOSUB6200
  442. 6140 NEXTI:NX=0:RETURN
  443. 6150 PRINT"[147]";NA$;"":FORI=1TON3
  444. 6160 PRINT P1$(F,I);" ";
  445. 6170 NX=NX+1:IFNX=2THENPRINT:NX=0
  446. 6180 IFP3$(F,I)=" "THENGOSUB6200
  447. 6190 NEXTI:NX=0:RETURN
  448. 6200 PRINT"   [208]RESS THE [146] [210]ETURN [203]EY  TO [195]ONTINUE "
  449. 6210 GETZ$:IFZ$=""THEN6210
  450. 6220 IFZ$<>CHR$(13)THEN6210
  451. 6230 PRINT"[147]";NA$;"":NX=0:RETURN
  452. 6235 :
  453. 6300 REM
  454. 6310 PRINT"[147]      [217]OU APPEAR TO BE HAVING SOME "
  455. 6320 PRINT"      TROUBLE WITH THESE QUESTIONS."
  456. 6330 PRINT"       [212]RY READING THIS PART OF THE"
  457. 6340 PRINT"      STORY AGAIN. [201] WILL GIVE YOU "
  458. 6350 PRINT"      ANOTHER SET OF QUESTIONS WHEN"
  459. 6360 PRINT"      YOU HAVE FINISHED."
  460. 6370 PRINT"   [208]RESS THE [146] [210][197][212][213][210][206]  KEY TO CONTINUE "
  461. 6380 GETX$:IFX$=""THEN6380
  462. 6390 IFX$<>CHR$(13)THEN6380
  463. 6400 TM=0:VQ=2:RETURN
  464. 6410 PRINT"[147]     [196]O YOU WISH TO HAVE THE STORY"
  465. 6420 PRINT"     PRINTED OUT TO A PRINTER (Y/N)?"
  466. 6430 GETZ$:IFZ$=""THEN6430
  467. 6440 IFZ$="Y"THENGOSUB10500:GOTO6470
  468. 6450 IFZ$<>"N"THEN6430
  469. 6460 RETURN
  470. 6470 IFDQ=2THENDQ=0:GOSUB9700:GOTO6410
  471. 6475 PRINT"[147]    [201]NSERT PAPER AND [212]URN ON [208]RINTER! ":GOSUB356
  472. 6480 OPEN4,4
  473. 6490 FORK=1TO3
  474. 6500 PRINT#4,"";NA$
  475. 6510 FOR I=1TO N1(K)
  476. 6520 PRINT#4,"";MO$(NX);P1$(K,I)" ";
  477. 6530 NX=NX+1:IFNX=4THENPRINT#4:NX=0
  478. 6540 IFP1$(K,I)=" "THENPRINT#4:NX=0
  479. 6550 NEXTI:NX=0:NEXTK:CLOSE4
  480. 6560 RETURN
  481. 6570 PRINT"   [215]OULD YOU LIKE THE [210]EPORT TO BE"
  482. 6580 PRINT"   PRINTED ON A PRINTER (Y/N)?"
  483. 6590 GETX$:IFX$=""THEN6590
  484. 6600 IFX$="Y"THEN6630
  485. 6610 IFX$<>"N"THEN6590
  486. 6620 RETURN
  487. 6630 GOSUB6850:IFDQ=2THENGOSUB9700:RETURN
  488. 6635 PRINT"   [208]RINTING OUT [210]EPORT FOR [146] ";SN$
  489. 6640 TQ=W+R
  490. 6650 OPEN4,4
  491. 6660 PRINT#4,"";NA$
  492. 6670 PRINT#4
  493. 6680 PRINT#4,"   ==================================="
  494. 6690 PRINT#4,"        [211]TUDENT: ";SN$
  495. 6700 PRINT#4,"   ==================================="
  496. 6710 PRINT#4,"   [211]TORY [210]EPORT"
  497. 6720 PRINT#4,"   ------------"
  498. 6730 PRINT#4,"   [212]OTAL [206]UMBER OF [209]UESTIONS: ";TQ
  499. 6740 PRINT#4
  500. 6750 PRINT#4,"   [193]NSWERS [195]ORRECT (1ST TRY): ";C1
  501. 6760 PRINT#4
  502. 6770 PRINT#4,"   [193]NSWERS [195]ORRECT (2ND TRY): ";C2
  503. 6780 PRINT#4
  504. 6790 PRINT#4,"   [212]OTAL [201]NCORRECT [209]UESTIONS: ";W
  505. 6800 PRINT#4
  506. 6810 PRINT#4,"   [212]OTAL [209]UESTIONS [195]ORRECT  : ";R
  507. 6820 PRINT#4,"   ----------------------------------"
  508. 6830 PRINT#4,"   [208]ERCENTAGE [195]ORRECT       : ";PR;" %"
  509. 6840 CLOSE4:GOSUB356:RETURN
  510. 6850 SYS(828):IFPEEK(2)=5THENDQ=2:RETURN
  511. 6858 PRINT"[147]  [201]NSERT PAPER AND TURN ON THE PRINTER "
  512. 6860 GOSUB356:PRINT"[147]":RETURN
  513. 6862 :
  514. 6870 PRINTCHR$(142):PRINT"[147]"
  515. 6880 VB$="":IU=14:JQ=0
  516. 6900 PRINT"        PLEASE TYPE IN YOUR FIRST "
  517. 6910 PRINT"        NAME:>[146] ":PRINT
  518. 6920 ZZ$="":POKE204,1:PRINTVB$
  519. 6930 GETZA$:IFZA$=""THEN6930
  520. 6940 IFASC(ZA$)=13THENSN$=ZZ$:GOTO7000
  521. 6950 IFASC(ZA$)=20THENGOTO6980
  522. 6955 IFASC(ZA$)<65ORASC(ZA$)>90THEN6930
  523. 6957 JQ=JQ+1:IFJQ=16THENZZ$="":GOTO6870
  524. 6960 ZZ$=ZZ$+ZA$:IU=IU+1
  525. 6970 PRINT"";TAB(IU);ZA$;:GOTO6930
  526. 6980 IFIU=14THENGOTO6930
  527. 6990 JQ=JQ-1:ZZ$=LEFT$(ZZ$,LEN(ZZ$)-1):IU=IU-1:GOTO6970
  528. 7000 IFSN$=""THEN6870
  529. 7010 FL=ASC(LEFT$(ZZ$,1)):FL=FL+128
  530. 7020 SN$=MID$(ZZ$,2,(LEN(ZZ$)-1))
  531. 7030 ZZ$=CHR$(FL)+SN$:SN$=ZZ$
  532. 7040 PRINTCHR$(14):RETURN
  533. 8000 PRINT"[147]     [215]OULD YOU OR ANYONE ELSE LIKE "
  534. 8010 PRINT"     TO READ THIS STORY NOW (Y/N)?"
  535. 8020 GETZ$:IFZ$=""THEN8020
  536. 8025 IFZ$="Y"THENRUN
  537. 8030 IFZ$<>"N"THEN8020
  538. 8040 :
  539. 8041 PRINT"      [215]OULD YOU LIKE ANOTHER STORY"
  540. 8042 PRINT"             PERHAPS (Y/N)?"
  541. 8050 GETX$:IFX$=""THEN8050
  542. 8060 IFX$="Y"THENGOSUB9500:GOTO9000
  543. 8070 IFX$<>"N"THEN8050
  544. 8100 SYS64738
  545. 8200 :END:
  546. 9000 IFDQ=2THENDQ=0:POKE831,4:GOSUB9700:GOTO8040
  547. 9005 PRINT"[144][147]        [204]OADING:  [205]AIN [205]ENU 64 "
  548. 9010 POKE53281,1:POKE53280,6
  549. 9020 REM *** BOOT SAMPLE ***
  550. 9030 :
  551. 9040 :
  552. 9050 REM *** FIRST PROGRAM BOOTED ***
  553. 9060 :
  554. 9070 PRINT"LOAD"CHR$(34)"MAIN MENU 64";CHR$(34)",8"
  555. 9080 :
  556. 9090 :
  557. 9100 PRINT"RUN"
  558. 9110 :
  559. 9120 REM *** SET-UP KEYBOARD BUFFER ***
  560. 9130 :
  561. 9140 PRINT"":FORJ=0TO4:POKE631+J,13:NEXTJ:POKE198,5
  562. 9150 END
  563. 9500 POKE831,8:GOSUB10500:IFDQ=2THENRETURN
  564. 9505 PRINT"[147]    [201]NSERT THE [193]DVENTURE [211]ERIES DISK"
  565. 9510 PRINT"          INTO THE DISK DRIVE."
  566. 9520 GOSUB356:RETURN
  567. 9700 PRINT"[147]     [207]PPS! [212]HE DEVICE IS NOT READY! "
  568. 9710 GOSUB356:RETURN
  569. 10000 FORK=0TO24
  570. 10010 READ ZZ:POKE828+K,ZZ
  571. 10020 NEXT K:RETURN
  572. 10500 SYS(828):IFPEEK(2)=5THENDQ=2
  573. 10510 RETURN
  574.